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INTRODUCTION 


Are you ready for the fun and challenge of graphics pro¬ 
gramming? Do you want to use your computer to create your 
own pictures and designs, move objects around on the screen, 
or design your own video game? BASIC Fun With Graphics: 
The Atari Way gets you started, using the graphics program¬ 
ming statements on your computer. Each chapter includes ex¬ 
ercises that show how the graphics statements work and simple 
BASIC programs that demonstrate exciting and fun ways to 
use these statements. 

BASIC Fun With Graphics: The Atari Way presents a sys¬ 
tematic yet entertaining approach to learning graphics pro¬ 
gramming. First you type in the exercises and programs 
exactly as they appear in the book. Then you experiment 
and change them, using your own ideas. Finally, you create 
your own designs and pictures, using those in the book as a 
guide. 

BASIC Fun With Graphics: The Atari Way covers the begin¬ 
ning and intermediate graphics statements available in Atari 
Basic, as well as a chapter for “hotshots” that uses higher-level 
mathematical functions to create geometric figures and gener¬ 
ate new and unique designs. It stops short of commands that 
directly address memory, like PEEK and POKE statements, 
and shape tables used in sophisticated graphics and animation. 
When you’re ready for this level of programming, your com¬ 
puter’s BASIC reference guide has a comprehensive discus¬ 
sion of how to proceed. 

BASIC Fun With Graphics: The Atari Way is written in 
BASIC for the Atari 400 or 800 equipped with a BASIC car¬ 
tridge. The programs will run on either a color or monochrome 
monitor. For visual appeal, SETCOLOR statements are in¬ 
cluded in many of the programs. To run on a monochrome or 
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black and white display, omit the SETCOLOR statements, but 
not the COLOR statements, from the program. 

We found that experimenting with the graphics statements 
and creating designs and pictures on the screen was great fun. 
We hope you get as many “oohs,” “aaahs,” and chuckles as 
we have. 
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HOLD TO US€ 

BASIC FUN UJITH GRAPHICS 


1. Start up your Atari with the BASIC cartridge in it. 

2. Type in each program line by line, including the line 
numbers, exactly as shown in the Program Listing. Press the 
RETURN key after each line. 

3. Once you have a program entered onto your computer, 
type RUN and press Return. The computer will Run your pro¬ 
gram and display the results on the sceen. It should look like 
the example in the book. 

4. To check the programming statements, press RESET, 
type LIST and press Return. The computer will list your pro¬ 
gram. 

5. Now try making the changes suggested in the text, or ex¬ 
periment with others, using ours as a guide. 

6. When you’re ready to save your program, use the SAVE 
or CSAVE command. To retrieve a program from the disk or 
cassette, use the LOAD or CLOAD command. 

7. Before you enter another program, type NEW to erase 
anything currently in memory. 

8. The Warmup exercises at the beginning of most chapters 
contain directions and examples using each graphics state¬ 
ment. Read these and work through the exercises before you 
proceed to the programs. 

9. The pictures used as examples in this book were drawn 
using the screen display as a guide. The actual display on your 
screen may vary slightly from these examples. 

10. If you have difficulties making a program work, check 
your program, line by line, against the listing in the book. All 
the programs and exercises were tested on an Atari 400 and an 
Atari 800. 
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PRINT 


Use this program statement to tell the computer 
what to print on the screen or paper. 

PROGRAMS 

1. Warmups 

2. House 

3. Ocean Liner 

4. Space Fleet 

5. Bugs 

6. Rocket Ship 

7. Bicycle 




WARMUPS 


The format for the PRINT programming statement is: 

PRINT " * or PR. " " or ? " 

You can use any combination of letters, numbers, and special char¬ 
acters in a PRINT statement. 

Your computer has nine display modes: 3 text modes and 6 graph¬ 
ics modes. This chapter shows you how to use the GRAPHICS 0 text 
mode to draw shapes and objects. 

In GRAPHICS 0, you have 24 rows and 40 columns. The rows are 
numbered from top to bottom, the columns from left to right, on your 
screen. If you think of your screen as a piece of graph paper, then the 
top left square is 0,0 and the bottom right square is 39,23. The Atari 
default margin in GRAPHICS 0 is 2,1 (column 2, row 1), where 
“READY” appears. 

0,0 Columns-^ 39,0 


rows 


0,23 39,23 

The graphics mode statement sets the display type. The format is: 

GRAPHICS N or GR. N 

where N is a number that determines the display type, as fol¬ 
lows: 
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Type 

Mode 

Rows 

Columns 

Full Rows 

Text 

Window 

0 

Text 

24 

40 

24 

No 

1 

Text 

20 

20 

24 

Yes 

2 

Text 

10 

20 

12 

Yes 

3 

Graphics 

20 

40 

24 

Yes 

4 

Graphics 

40 

80 

48 

Yes 

5 

Graphics 

40 

80 

48 

Yes 

6 

Graphics 

80 

160 

96 

Yes 

7 

Graphics 

80 

160 

96 

Yes 

8 

Graphics 

160 

320 

192 

Yes 


The GRAPHICS statement can be abbreviated when you are typ¬ 
ing to GR. N. GRAPHICS can be used either in a program or in im¬ 
mediate mode. 

If you want to use the full screen in modes 1 through 8, thereby 
eliminating the text window, add 16 to the GRAPHICS N statement. 
Then make the last statement of your program a continuous loop, so 
you have to BREAK the program to end it. For example: 

100 GRAPHICS 3+16 
999 GOTO 999 

These two statements will allow you to use 24 rows and 40 col¬ 
umns for your graphic commands in graphics mode 3. 

Atari’s graphic modes will be discussed in greater detail in Chap¬ 
ter 4. 
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HOUS€ 


Use PRINT to draw a house. Put this program in your computer by 
typing each line exactly as shown in the Program Listing. 

Once you have this program up and running, try adding a chimney 
by using the Atari’s edit keys ( f , i INS, DEL). 

/ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 


/ ... . \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

I I~I I.I I I 

I I I 

I _ I I_I I 

III I I 

I_I I... „ ..I 


PROGRAM LISTING 

i 0 0 B R A P HIC S O' 
110 PRINT 51 
120 PRINT H 
130 PRINT n / 
140 PRINT M / 
150 PRINT M I I.. 
160 PRINT “I 
170 PRINT n I 
180 PRINT "I 
190 PRINT H I 


\ \ \ \ \ \ \ \ \ \ \ \ \ \ 
WWWWWW 
\ \ \ \ \ \ \ \ \ \ 

i iZi i 

I 

1 I_I 

I I I 

I I I 


II 


I" 
1 11 
I “ 
I/’ 
I" 


NOTES 


Line 100: GRAPHICS 0 puts the program run in graphics mode 0. 
Lines 110-190: When the program runs, the PRINT statement tells 
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the computer to print out everything between the two " marks on 
each line exactly as it is shown in the program. 
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OC€AN UN€R 


Draw an ocean liner with this program. 

Now add some portholes or another deck to make your own ship. 

.j T 

.... 1 1_HI i _ 

... r„.... i ___ 

\ 5 5 5 6 V 


PROGRAM LISTING 

100 GRAPHICS 0 
110 PRINT " 

120 PRINT " .71_" 

13o pr i nt n _i:_ :::t_» 

1 40 PR I NT *' i J1Z-Z-ZJ ." 

150 PRINT 5 ~ 0 Q . cT7" 

160 PRINT ” \ /" 
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SPRC€ FL€€T 

Create a fleet of different kinds of spacecraft. 


I I 
( i 
t I 

/\ 

@ 88 © 

/######\ 

I **■#**■-*** I 

PROGRAM LISTING 

100 GRAPHICS 0 
110 PRINT n 
120 PRINT " 

130 PRINT " _ M 

140 PRINT 
150 PRINT n 
160 PRINT " 

170 PRINT “ 

ISO PRINT " 

190 PRINT M II" 




+ '■ 

/ \ 
\ / 


I I 
t I 

/ \ 
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200 

PRINT 

it 

i i" 


210 

PRINT 

ii 

z \" . 


220 

PRINT 

H 


/ \" 

230 

PRINT 

ii 


M" 

240 

PR I NT 

ii 


11" 

250 

PR I NT 

i» 


1 1 11 

260 

PRINT 

H 


/ \ 11 

270 

PRINT 

i> 


" 

280 

PRINT 

H 


/######V 

290 

PR I NT 

ii 


\ ******** 1 

300 

PRINT 

n 

\ 



NOTE 

You can use any of the special characters on the keyboard in a 
PRINT statement. Experiment with these characters and make some 
of your own spaceships. 
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BUGS 


Here is a swarm of bugs. 

Can you come up with some species of your own? 


t i 


-h 

\ ( > / 

/ ( _ > \ 

/ \ 

' / \ ( ) / \ 

\ / \ / 

V V 

\ / 

( 77 ) 

///\\\ 

©######## 
i i * i * * 11 

PROGRAM LISTING 

i 0 0 G R A P HIC S 0 
120 PRINT " \/ n 

130 PRINT ( - _) M 

140 PRINT H 

150 PRINT " 

160 PRINT M 

170 PRINT M 

180 PRINT M 

190 PRINT ” \< )/" 

200 PRINT " /<„)\ M 

210 PRINT 11 / \ M 
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225 PRINT " 

230 PRINT " 

240 PRINT " 

250 PRINT " 

260 PRINT " \_/" 

270 PRINT '* <.".")•■ 

230 PRINT " ///\\\" • 

290 PRINT " 

300 PRINT " 


/ \ () / \ 
\ / \ / 


©########" 
t i i i t i i i n 
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ROCK6T SHIP 

This rocket is drawn by the computer and then blasts off the screen, 
leaving a trail of fire. 

You can do the same thing with your own spaceships. 



T 

H 

E 

E 

N 

D 
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PROGRAM LISTING 


1 00 

GRAPHICS 0 




1.10 

WIDTH 

80 




120 

PRINT 



» H 


130 

PRINT 



J “ 


140 

PRINT 



f H 


150 

PRINT 


/ 

\" 


160 

PRINT 


/ 

V 

170 

PRINT 


i 1 1 1 I ! 1 

1 n 

ISO 

PRINT 


1 

{ 

" 

190 

PRINT 


/ 

\ 

/ V 

200 

PRINT 


/ 


\ **-* H 

210 

PRINT 


i I 1 

Mill 

J *" 

220 

PRINT 




) " 

230 

PRINT 


1 


1 " 

240 

PRINT 


1 


1 1 " 

250 

PRINT 


1 

F 

1 / \ M 

260 

PRINT 


1 

L 

f *#•*'* 

270 

PRINT 


1 

E 

j *" 

280 

PRINT 


1 

T 

I * M 

290 

PRINT 


1 

C 

1 *" 

300 

PRINT 


1 

H 

1 H 

310 

PRINT 


1 


1 " 

320 

PRINT 


1 


1 M 

330 

PRINT 


/ 



340 

PRINT 


/ 


V 

350 

PRINT 

" / 



\ H 

360 

PRINT 

" / 



V* 

370 

PRINT 

" /*•***#**•**•**##**\ " 

380 

PRINT 

" * 

* * 

* * * 

# *" 

390 

PRINT 

" * 

* * 

* * * 

#• # M 

400 

PRINT 

" * 

#■ 

* * 

* *" 

410 

PRINT 


* * 

* * 

* * M 

420 

PRINT 

" * 

* 

* * 

* #" 

430 

PRINT 


# * 

* 

#" 

440 

PRINT 


* 

* *" 


450 

PRINT 


* 



460 

PRINT 


* 



470 

PRINT 


* 

" 


480 

PRINT 



#" 


490 

PRINT 





500 

PRINT 



*" . 


510 

PRINT 





520 

PRINT 



•*" 


530 

PRINT 


* 

*■ 


540 

PRINT 





550 

PRINT 


T” 



560 

PRINT 


H*' 



570 

PRINT 


E" 



580 

PRINT 





590 

PRINT 


E" 



600 

PRINT 


N" 



610 

PRINT 


D" 



620 

FOR X~ 

1 TO 

40 



630 

PRINT 





640 

NEXT X 
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NOTE 


Lines 620-640: This is a FOR . . . NEXT loop, which allows you to 
repeat part of your program as many times as you want. The FOR 
statement begins the loop and the NEXT statement ends it. In this 
program, it repeats Line 630, which PRINTs a blank line, 40 times, 
making the rocket move up the screen so it appears to blast off. 
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BICVCL€ 


Now you can create a ten-speed bicycle. 

Can you design a racer or dirt bike of your own? 



PROGRAM LISTING 

100 GRAPHICS 0 


110 PRINT ” I.— “ 

120 PRINT " \ ___ M 

130 F' RIN T “ ____ + * &" 

140 PRINT H _- 

ISO PRINT M -• I I 

160 PRINT 11 ~ x I ~ \/ I 

170 PRINT "_+_ 1 / I_h-_ 

180 PRINT M (X) :--=I 

190 PRINT M I _ / I 

200 PRINT M -_I_- « -_I_~ M 
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POSITION _ 

The POSITION statement tells the computer in 
which column and row to locate the cursor. 

PROGRAMS 

1. Warmups 

2. Face 

3. Christmas Tree 

4. Candy Jar 

5. Tower 

6. Grove 

7. Hide-and-Seek 





UURRMUPS 


The format of the POSITION statement is: 

POSITION column, row where 
column is column position, 0 through 39 in GRAPHICS 0 
row is row position, 0 through 23 in GRAPHICS 0 

The values used in the POSITION statement vary with the screen 
format of each graphic mode for the Atari. The cursor doesn’t actu¬ 
ally move until a command which involves the screen is used. If you 
specify coordinates outside the available format for the mode you’ve 
selected, you will get an Error Message that says ERROR 141 (cursor 
out of range for particular mode) for the line following your POSI¬ 
TION statement which uses the screen, when you try to run your pro¬ 
gram. 

EXERCISE 1 

Use POSITION to put a character at various locations on your screen. 

10 GRAPHICS 0 
20 POSITION 19,12 
30 PRINT 


•* 

This exercise puts an * at location column 19, row 12. Try placing 
the * at other locations on the screen. 


EXERCISE 2 

Use the POSITION statement to center text. 

10 GRAPHICS O 
20 POSITION 9 ? 11 
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30 PRINT "THIS SHOULD BE CENTERED" 

- 40 POSITION 12,12 

50 PRINT "IN 40 COLUMN TEXT" 

60 PRINT "IN 40 COLUMN TEXT" 

THIS SHOULD BE CENTERED 
IN 40 COLUMN TEXT 

POSITION 9,11 locates the cursor on column 9, row 11 when the 
program executes the following PRINT statement. POSITION 12,12 
puts it on column 12, row 12 for the next PRINT statement. 
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Fnce 


Draw a girl’s face and then add features. You can change her ex¬ 
pression by altering Lines 210, 230, and 270. 

/ / / / / \ \ 

II ! I 

>1 it 

it i i 

1 { 0 O ! ! 

*1 it 

ii ii. 

I I I I 

II I I 


I I 

) I 


PROGRAM LISTING 


0 0 

(;> K A 1*'* l“i i. C c> 

0 



1 0 

PRINT ,l 

//,- 

’’’ / / \ \ 

l i 

2 0 

PRINT n 

1 1 

I 

1 

130 

PRINT " 

1 1 

1 

1 

10 

PRINT " 

1 1 

1 

i 

ISO 

PRINT " 

1 1 

1 


6 0 

PRINT " 

1 1 

i 

1 

7 0 

PRINT " 

1 1 

1 

1 

8 0 

PRINT " 

1 1 V 


1 

190 

PRINT " 

i 1 

1 

1 

20 0 

POSITION 

9 > 2 



210 

PRINT " A 

A *» 



22 0 

POSITION 

9,3 



230 

PRINT 11 0 

0" 



2-10 

POSITION 

10,5 



250 

PRINT " A " 




26 0 

POSITION 

10,6 



270 

PRINT 




28 0 

POSITION 

1,15 
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NOTES 


Line 100: GRAPHICS 0 tells the computer to start the program run 
in graphics mode 0. 

Lines 200, 220, 240, 260: POSITION tells the computer to put the 
cursor at the column, row position you want. This statement must 
correspond to the parameters of your screen mode (0-39 columns by 
0-23 rows in GRAPHICS 0). Otherwise you will get an Error Mes¬ 
sage, ERROR 141, which means the cursor is out of range for a par¬ 
ticular mode, when you try to run your program. 

The default margin in GRAPHICS 0 is in column 2, row 1. You 
may need to take this into account when you set your position coordi¬ 
nates. 

Line 280: POSITION 1,15 puts the cursor below the bottom of the 
picture, at row 15. Otherwise, the “Ready” prompt and cursor ap¬ 
pear immediately below the last line printed, in this case the mouth. 
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CHRISTMfiS TR€€ 

Draw a Christmas tree, then go back and decorate it. 
Add ornaments of your own to the program. 

* 

/ \ 

/ \ 


* \ 

\ 

@ 0 I 


PROGRAM LISTING 

100 GRAPHICS 0 

105 PRINT 

106 PRINT 
110 PRINT " 

120 PRINT " 

130 PRINT " 

IT0 PRINT " 

150 PRINT " 

160 PRINT " 

170 PRINT " 

180 PRINT " 

190 PRINT " 

200 PRINT " 

210 PRINT " 

220 POSITION 20,13 
230 PRINT "| |" 

30 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 












240 POSITION 20,14 
250 PRINT "| |" 

260 REM xxx DECORATE TREE 
27 0 GOSUE: 40 0 
280 POSITION 21,1 
290 PRINT "x" 

30 0 GOSUE: 40 0 
310 POSITION 21,4 
320 PRINT "!“ 

330 GOSLJE: 40 0 
340 POSITION 18,7 
350 PRINT "x *" 

360 GOSUE: 40 0 

370 POSITION 15,10 

330 PRINT "! 0? 0 0 !" 

390 GOTO 430 

400 FOR W=1 TO 400 

410 NEXT W 

420 RETURN 

425 POSITION 1,20 

430 END 


NOTES 


Line 270: GOSUB tells the computer to leave the program and go to 
a subroutine, in this case Line 400. 

Line 390: GOTO tells the computer to go to a designated line num¬ 
ber, in this case Line 430. 

Lines 400-420: Subroutines are small programs within a larger pro¬ 
gram that are used over and over. When the subroutine is finished, a 
RETURN statement tells the computer to go back to where it came 
from in the main program. Here the subroutine is a Wait Loop, which 
simply makes the computer pause before it continues to decorate the 
tree. 

Line 430: The END statement tells the computer that it is the last line 
in the program. It stops the Run. 
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CfiNDV JfiR 


This program draws a candy jar and fills it with jelly beans. 
Design your own container and fill it with marbles. 



{ OOOOOO! 
! OOOOOO ! 
» OOOOOO! 
! OOOOOO! 


PROGRAM LISTING 

1 0 0 GRAPHICS 0 
110 POSITION 2,7 

12 0 PRINT " _" 

130 PRINT " | |" 

140 PRINT " | |" 

150 PRINT " / \" 

160 PRINT " | I" 

170 PRINT " | |" 

180 PRINT " | |" 

190 PRINT " | I" 

20 0 PRINT " |___|“ 

21 0 F 0 R Y «14 T 0 11 S T E P -1 
220 FOR X~7 TO 12 

230 POSITION X,Y 
240 PRINT "0" 

250 NEXT X 

260 GOSUE 290 

270 NEXT Y 

280 GOTO 320 

29 0 FOR T ==1 TO 20 0 
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300 NEXT T 
310 RETURN 
320 POSITION 1*20 
330 END 


NOTE 


Lines 210-270: These lines form two nested FOR . . .NEXT loops, 
to fill the jar from the bottom up. The Y loop sets the rows and the 
X loop sets the columns to print “0”. 

Line 210: The loop of lines is incremented by the number in the 
STEP statement, in this case-1, so the program counts backwards 
from 14 to 11. If there is no STEP statement, the loop is incremented 
by one’s. 
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TOUU6R 


Build a tower, using one of Atari’s special ATASCII characters. 
Can you change the program to build a pyramid, using a different 
character? 


PROGRAM LISTING 

100 GRAPHICS 0 

110 FOR J~2Q TO 10 STEP -1 

120 FOR 1-19 TO 21 

130 POSITION I,J 

1T0 PRINT CHR$(21> i 

150 NEXT I 

160 NEXT J 

170 POSITION 1,1 

NOTE 

Line 140: CHR$(21) means the ATASCII character numbered 21. 
On the Atari this character is a ■. 
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GROV6 


“Grove” draws identical trees in evenly spaced columns and rows 
on your screen. 

Can you change the orchard pattern or design of the trees? 

<2> 'SxS*## 

<S><§><8> 

<2> <3* ( S ,( S >< u ) 

PROGRAM LISTING 

100 GRAPHICS 0 

11 0 !" 0 K J—!ii i 0 1 0 'a I E P 2 

120 FOR 1=10 TO 20 STEP 2 

130 POSITION I,J 

140 PRINT CHR$<16)j 

ISO NEXT I 

160 NEXT J 

170 POSITION 1,20 
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HID€-RND-S€€K 


Here’s a hide-and-seek game you play with the computer. Guess 
which tree X is hiding behind and the computer will show you if 
you’re right. 

/ 1 \ 

-I- / 2 \ 

-I -X 

/ 4 \ 

/ 3 \ -I- 

-1 - 


-I - 

WHERE IS X HIDING? 

BEHIND TREE 1,2,3,4 OR 5? 4 
SORRY ... BEHIND TREE 2 ! 

YOU’RE STILL ’IT’! 

WANT TO PLAY AGAIN <Y OR N>? N 

PROGRAM LISTING 

100 DIM N*<3> 

11 0 GRAPHICS 0 
12 0 A«INTC RND<1>*5+1) 

130 FOR L=1 TO 5 
14 0 X ~ IN T (R N D (1 )5K 2 0 + 10 ) 

150 Y“INK RND < 1 ) *15+1 > 

ISO POSITION X * Y 

36 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 




190 PRINT " A " 

20 0 POSITION X , C Y +1) 

210 PRINT 

220 POSITION X , < Y+2) 

230 PRINT "-I-" 

240 IF A=L. THEN 27 0 
25 0 NEXT L. 

260 GOTO 290 

270 X1“XJ Y1“Y 

280 GOTO 250 

290 POSITION 2tl8 

300 PRINT "WHERE IS X HIDING?" 

310 PRINT "BEHIND TREE 1,2,3,4 OR 5?" 

320 INPUT N 

330 IF N : =A THEN 37 0 

340 PRINT "SORRY*.♦BEHIND TREE"JAJ"!" 

350 PRINT "YOU'RE STILL 'IT'!" , 

360 GOTO 380 

370 PRINT "YOU'RE RIGHT!!!" 

380 PRINT "THERE HE IS!" 

390 X1“(X1+2)♦Y1"<Y1+1) 

400 POSITION X1,Y1 
410 PRINT "X" 

420 POSITION 2,22 

430 PRINT "WANT TO PLAY AGAIN (Y OR N)?"J 
440 INPUT N$ 

450 IF N*="Y" THEN 110 
460 END 

NOTES 

Line 100: String variables on the Atari must be dimensioned. DIM 
N$(3) saves three spaces for N$. 

Lines 120, 140, 150: RND(l) or RND is a random-number function, 
which generates random numbers from 0 to .9999. INT is an integer 
function, which changes decimal numbers to whole numbers by 
dropping the fractional part of the number. The statement A = INT 
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(RND(l) *5+1) tells the computer, “Let A be a random number be¬ 
tween 1 and 5.” 

Lines 320 , 440: The INPUT programming statement allows you to 
enter different numbers or words into your program each time it runs. 

Lines 330, 450: The IF . . . THEN programming statement makes 
the computer decide which line number to execute next. IF the condi¬ 
tion is true, THEN the program goes to the line number indicated. 
Otherwise it goes to the following line number. 
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PLOT and 
DRRUUTO 


The PLOT and DRAWTO graphics commands 
are used to draw a point or a line on the screen or 
paper. 

PROGRAMS 

1. Warmups 

2. Christmas Lights 

3. Jet Plane 

4. House 

5. Flag 

6. 3-D Room 

7. Train 

8. Skier 





WfiRMUPS 


Now you are ready to explore the graphics capabilities of your coni' 
puter. The programs and exercises included in this chapter use the 
GRAPHICS 8 mode. This mode uses a grid of 310 columns across 
and 160 rows down, with a four-line text window at the bottom of the 
screen. If you think of the screen as an X,Y axis, then X corresponds to 
the columns and Y to the rows. The top left point on the screen is (0,0) 
the bottom right is (319,159). X increases as you move to the right 
across the screen, and Y increases as you move down. 

GRAPHICS 8 Mode 



The statement GRAPHICS 8 puts your computer into this resolu¬ 
tion mode. Once you type this in, you will stay in GRAPHICS 8 until 
you press RESET or type in another GRAPHICS statement. 

When BASIC is first powered up, all the color data is 0. Thus, 
when graphics statements are executed, nothing seems to happen. 
Correct this by typing COLOR 1 and hitting RETURN. 

To examine your program listing, hit RESET or type GR. 0 to get 
back to a full-screen text mode. Then type LIST. 
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PLOT 


The PLOT graphics statement plots a point on the screen. The for¬ 
mat for the statement is: 

PLOT Xl.Yl or PL. XI,Y1 where: 

X1,Y1 are the X,Y coordinates of the point on the graphics 
screen. 

You can abbreviate PLOT when typing to PL. 

PLOT is most frequently used to determine the point on the screen 
where a shape begins. Then DR A WTO is used to draw the shape. 


DRAWTO 

The DRAWTO graphics statement draws a line on the screen. The 
format for the statement is: 

DRAWTO XI,Y1 or DR. XI,Y1 where: 

X1,Y1 are the X,Y coordinates of the ending points of the line. 
This uses the last point drawn as the starting point and XI,Y1 as 
the ending point. 

DRAWTO is used in all modes on the Atari, and can be abbrevia¬ 
ted when typing as DR. X1,Y1. 


EXERCISE 1 

Use PLOT to place a point in the middle of the screen. 

GRAPHICS 8 
COLOR 1 

SETCOLDR 1,1,14 
PLOT 160,80 
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This example uses COLOR 1. If no COLOR is specified when 
you start up the system with BASIC, COLOR is 0, the color of the 
background, and appears invisible. Set COLOR 1,1,14 makes the 
point as bright as possible against the background..These state¬ 
ments are explained in detail in Chapter 4. 

Now erase this point, using COLOR 0. 

COLOR O 
PLOT 160,80 



EXERCISE 2 

Draw a line, using PLOT. 
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10 GRAPHICS 3 
20 COLOR 1 
30 SETCOLOR 1,1,14 
40 FOR X=10 TO 50 
50 PLOT X,50 
60 NEXT X 


Notice that you can use a numeric variable as the X or Y coordi¬ 
nate in PLOT. 


EXERCISE 3 

Use the PLOT and DRAWTO statement to draw a line on the 
screen. 

NEW 

GRAPHICS S 
COLOR 1 

SETCOLOR 1,1,14 
PLOT 140,100 
DRAWTO 180,140 



Now draw a line from the end of the first line to (220,100). 
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DRAWTO 



The DRAWTO statement uses the last point drawn on the screen 
as the starting point. 
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CHRISTMRS LIGHTS 


Use this program to draw a small Christmas tree and put on some 
lights. 

Add some more lights to the tree once you get this program up and 
running. 


PROGRAM LISTING 


:i o o 

GRAPHICS 8 


105 

COLOR 1* SET 

COLOR 

11 0 

PLOT 80 t 100 

:> DRAW 

120 

DRAWTO 160 ? 

10 0 

1 3 0 

P L. w j 8 U ? X 0 0 

i DRAW 

1■'! 0 

D 1*\ A W i tj .1. 8 #■ 

i z o 

ISO 

D R i-i W 1 iJ 1 8 f 

.1. At. 0 

160 

D R A W 1 G 18 >• 

1 0 0 

170 

D R A W I G 16 0 f 

10 0 

180 

PLOT 120,80 


190 

PLOT 110,90 


200 

PLOT 140,90 
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NOTES 


Line 100: GRAPHICS 8 puts the computer into graphics mode 8. 

Line 105: COLOR 1 makes the graphics points visible in GR. 8. 
SETCOLOR 1,1,14 makes them as bright as possible against the 
background. These statements are explained in detail in the following 
chapter. 

Line 110: The PLOT statement draws a point at (80,100). 
DRAWTO draws a line from there to 123,55. 

Line 120: This DRAWTO statement continues from the last point 
drawn to 160,100. 

Line 180: PLOT puts a point at 120,80. 
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J€T PIRN€ 


The computer can draw a jet liner with this program. 
Can you improve upon the design? 



PROGRAM LISTING 

I 0 0 G R A I**’ H .1C S 8 i C ( J L 0 R 1 * S E T C Q L 0 K 1 * 1 >• 1 T 

II 0 P1... 0 T 8 0 t 1C 0 i D R A W T 0 2 : v 0 >-1 0 0 
120 DRAWTO 260 f 115 


13 0 

DRAWTO 

20 0 , 115 

i o 

DRAWTO 

150,150 

150 

DRAWTO 

170,115 

.1 6 0 

DRAWTO 

9 0 ,115 

170 

DRAWTO 

70,90 

ISO 

DRAWTO 

10 0,10 0 

19 0 

PLOT 175,100♦DRAWTO 

200 

DRAWTO 

210,10 0 


NOTE 

Lines 120-180: Notice that these DRAWTO statements all use the 
prior point as the starting point. 
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HOUS€ 


Here is a small house. See if you can add windows or a chimney. 



PROGRAM LISTING 

100 GRAPHICS 8 i COLOR i i SETCGLOR 1,1,14 

.!. .L 0 !■*' LOT 8 0 , 1 0 0 <■ D R A .0 l 0 I o 0 , .1. (i 0 

12 0 D R A W T 0 1 6 0 , 110 $ D R A W T 0 80,1 4 0 

13 0 D R A W T 0 8 0,10 0 'i D R A W T 0 12 0,3 0 

140 DRAWTO 160,100 

1 5 0 P!.. 0 T 110,11 8 j D R A W T 0 1 3 0,11 8 

1 6 0 PI.. 0 T 110,118; D R A WTO 110,14 0 

1 7 0 P L 0 T 13 0 ,113 J D R A W T 0 13 0,14 0 
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FLAG 


This program draws a flag with 66 stars and 13 stripes. 
Can you change it to draw the America flag? 



PROGRAM LISTING 


0 0 

GRAF’! 

•nos 

S «■ L- O L O K ± 


105 

$*.) 1::. i L ( 

JLGR 

1,1,14 


1 0' 

PLOT 

100 

f 10 0 i D R A W i U 

2 ’4 ti 1 10 0 

115 

DRAWTO 2 

40,157 


117 

D R A W T 0 10 0 , 157 ? D R A W T 0 10 0,10 i) 

1.2 0 

PLOT 

160 

,100JDRAWTO 

160,121 

125 

DRAWTO 100,121 


130 

PLOT 

16 0 

,10 0 JDRAWTO 

240,100 

135 

PLOT 

16 0 

,1031DRAWTO 

240,103 

140 

PLOT 

16 0 

,109? DRAWTO 

240,109 

145 

PLOT 

160 

,112?DRAWTO 

240,112 

150 

PLOT 

16 0 

,118?DRAWTO 

240,118 

155 

PLOT 

160 

,121?DRAWTO 

240,121 

160 

PLOT 

100 

, 127?DRAWTO 

240,127 

165 

PLOT 

10 0 

, 13 0?DRAWTO 

240,130 

17 0 

PLOT 

1 0 0 

,136?DRAWTO 

240,136 

175 

PLOT 

1 0 0 

,139?DRAWTO 

240,139 

180 

PLOT 

100 

,145?DRAWTO 

240,145 

185 

PLOT 

100 

,148?DRAWTO 

240,148 
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190 PLOT 100,154iDRAWTO 240,154 
195 PLOT 100,157JDRAWT0 240,157 
200 Y~0 

210 FOR X~5 TO 55 STEP 5 
220 PLOT 100+X,103+Y 
230 NEXT X 
240 Y~Y+3 

250 IF Y>18 THEN 270 
260 GOTO 210 
270 END 

NOTES 

Line 250: This IF . . . THEN statement tells the computer, IF the row 
is greater than 18, THEN go to LINE 270, the END of the program. 
Otherwise, go to the next line, which sends the program back to print 
another row of stars. 

Line 270: The END statement terminates the execution of the pro¬ 
gram and returns control to the user. 


\ 
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3-D ROOM 

The computer draws a 3-dimensional room with a door in the far 
wall. 

Change the program so the far wall seems even farther away. 


PROGRAM LISTING 


110 PLOT 80 * 1 0 0 5 DR A WTO 220,1.0 0 i DR A WTO 220,139 

115 DRAHTO 80,1591DRAWT0 80,100 

120 PLOT 130,1221DRAW T0 170,122 

125 DRAWTO 170,1381DRAHTO 130,138 

127 DRAHTO 130,120 

130 PLOT 80,100 1DRAHTO 130,122 

110 PLOT 80,160}DRAHTO 130,138 

150 PLOT 220,1001DRAHTO 17 0,122 

160 PL 0 T 220,16010RAHT O 170,13 8 

170 PLOT 150,1271DRAHTO 160,127 

172 DRAHTO 160,138 

175 DRAHTO 150,1381DRAHTO 130,127 

ISO PLOT 153,133 
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TRAIN 


Here is a steam engine ready to chug down the tracks. 
Try designing a moden locomotive or a race car. 



PROGRAM LISTING 


:!. 0 0 

GR API-11 ( 

3 t L 

:!. o 

PLOT 0 

>46.1 DR* 

.20 

DRAWTO 

•T 0 , 16 

j o m 

np a !.rr n 

A II 1 A 


U \ \ rl H ; i.. ; 


L ^ 0 

D R A W T 0 

& (] $ ! % j Q 

5 0 

DRAWTO 

* / 0 

L 6 0 

DRAW ID 

6 0 > 7 0 

170 

DRAWTO 

60 f 7*\ 

180 

DRAWTO 

40,74 

9 0 

DRAWTO 

40,70 

20 0 

DRAWTO 

3 6 f 7 0 

210 

DRAWTO 

3 6 17 x t 

22 0 

DRAWTO 

20,7't 

23 0 

DRAWTO 

2 0,7 0 

240 

DRAWTO 

0,7 0 

250 

DRAWTO 

0,4 6 
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SKI€R 


This skier is set to take off down the slopes. 

See if you can design a person on a sled to substitute for the skier. 



PROGRAM LISTING 

1 0 0 0 R A P M X C S 8 * C 0 L. U R 1 1 8t1 C 0 L 0 K 1 , 1 , 1 4 

102 REM *»>KDRAW HEAD 

1 0 4 P L 0 T 150,62: D R A W T D 151,6 3 

106 DRAWTO 152,64 

1 0 8 D R A WT0 1 53,65{D R A WTO 152,6 6 

1.1.0 DRAW TO 151,67 

112 DRAWT0 15 0,6 91 DRAWTO 149,6 7 

114 DRAWTO 148,66 

116 D R A W T0 147,65 i D R A W T 0 14 8,6 4 

117 DRAWTO 149,63 

118 DRAWTO 150,62 
120 REM *sokDRAW BODY 

125 PLOT 150,65*DRAWTO 150,78 

130 DRAWTO 145,100 

140 PLOT 150,78 

150 DRAWTO 155,100 

160 PLOT 150,68 

170 DRAWTO 146,68 

180 DRAWTO 143,75 
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190 DRAWTO 135,70 
200 PLOT 136,68 
210 DRAWTO 125,100 
220 PLOT 150,68 
230 DRAWTO 154,68 
240 DRAWTO 157,75 
250 DRAWTO 165,70 
260 PLOT 166,63 
270 DRAWTO 155,100 
280 PLOT 140,96 
290 DRAWTO 157,110 
300 PLOT 150,96 
310 DRAWTO 167,110 
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GRAPHICS MOD6S, 
COLOR, and 
S6T COLOR 

Different GRAPHICS, COLOR, and SETCOLOR 
statements produce unique shapes, colors, and pic¬ 
tures on your Atari screen. 

PROGRAMS 

1. Warmups 

2. Fish 

3. Car 

4. Fishing Boat 

5. Windmill 

6. Snowflakes 

7. Sailboat 

8. Campground 

9. Picture 





WARMUPS 


The Atari has 128 possible color-luminance combinations with 
which to alter your screen display. Depending upon the graphics 
mode you select, not more than 5 colors can be displayed at any one 
time. Each graphics mode has its own set of default colors. In text 
modes GR. 0,1, and 2, a different set of colors is enabled by the 
SETCOLOR statement. In graphics modes GR. 3 through GR. 8, 
the COLOR and SETCOLOR statements together set the color of the 
points to be plotted. 

No SETCOLOR statement is required in modes GR. 0 through 
GR. 8 if the default set of colors is used. However, COLOR is re¬ 
quired in modes GR. 3 through GR. 7 for any graphics statement to 
appear on the screen, as all the color data is set to 0 when BASIC is 
first powered up. 

In GR. 0, GR. 1, and GR. 2, Atari’s text modes, the COLOR state¬ 
ment determines the ATASCII character to be displayed by PLOT 
and DR A WTO statements. 

The format is: 

COLOR X or C. X where: 

X is the numeric variable for an ATASCII character stored in 
that location for that graphics mode. 

EXERCISE 1 

This program prints a row of hearts across the top of the screen. 
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10 GRAPHICS 0 
20 COLOR 0 

30 PLOT 2,1tDRAWTO 17,1 

40 POSITION 10,12 

50 PRINT "HOW DO YOU LIKE THIS?" 


In Line 20, COLOR 0 tells the computer to use the ATASCII char¬ 
acter with the value of 0 in GR. 0, a heart, for the following PLOT 
and DRAWTO statement. 

To get a row of $ characters, change Line 20: 

20 COLOR 36 


pale blue-white characters 



blue screen 
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Try other values in the COLOR statement. Your BASIC reference 
manual has a table of Atari's internal character set and a charac¬ 
ter/color assignment chart for GR. 0, GR. 1 and GR. 2. 
Experiment by changing Line 10: 

10 GRAPHICS 1 



pale blue-white characters 

Watch the text window for these modes print at the bottom of the 
screen. Note how the size and shape of the characters change on the 
screen according to each screen mode’s dimensions. 

10 GRAPHICS 2 

gold characters 


black screen 


blue text window 


pale blue-white characters 

58 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 





10 GRAPHICS 0 



EXERCISE 2 

The SETCOLOR statement determines the colors you can use in 
GR. 0, GR. 1, and GR. 2. 

The format in GRAPHICS 0 is: 


SETCOLOR X, Y, Z or SE. X, Y, Z where: 

X is the color register: 

When X = 1, the statement affects the luminance of the 
characters that are the same color as the 
background. 

When X = 2, the statement affects the background. 
When X = 4, the statement affects the border. 


Y is a color variable from 0 to 15: 
0 - gray 

1 - gold 

2 - orange 

3 - red-orange 

4 - pink 

5 - purple-blue 

6 - red 

7 - blue 


8 - blue 

9 - light blue 

10 - turquoise 

11 - green-blue 

12 - green 

13 - yellow-green 

14 - orange-green 

15 - light orange 


Z is the luminance variable of the color, from 0 to 14 in even in¬ 
crements, where 0 is the dullest and 14 is the brightest. 
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Let’s add a background color of green to our previous program, 
Exercise 1, in GR. 0. 

15 SETCOLOR 2,12,8 



In Line 15 the SETCOLOR statement tells the computer to fill color 
register 2, which effects GR. 0 mode’s background, with color 12 
(green), with average luminance (8). 

Now make the characters as bright as possible to stand out against 
the background. Add: 


16 SETCOLOR 1,0,14 
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This SETCOLOR statement tells the computer to change the char¬ 
acter luminance in register 1 to the brightest, 14. The color used is 
automatically set to the background color, regardless of the color- 
variable value. 

Now add a border color of blue to your screen. 

17 SETCOLOR 4,3,8 


blue border 



Here SETCOLOR tells the computer to fill color register 4, the bor¬ 
der, in GRAPHICS 0, with blue (8), in average luminance (8). 

Finally, experiment with other background and border colors and 
luminances in GRAPHICS 0 by changing the color and luminance 
variables in Line 15 and Line 17. 

EXERCISE 3 

In GR. 1 and GR. 2, the COLOR statement functions in the same 
way as in GR. 0. However, the color registers of the SETCOLOR 
statement affect different parts of the screen than in GR. 0. 

In GR. 1 and GR. 2 the format is: 

SETCOLOR X, Y, Z or SE. X, Y, Z where: 
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X is the color register. 

When X = 0 the statement affects the color and lumi¬ 
nance of the characters on the graphics 
screen. 

When X = 2 the statement affects the color and lumi¬ 
nance of the background of the text window. 

When X = 4 the statement affects the color and lumi¬ 
nance of the graphic screen background and 
border. 

Y is the color variable 0 through 15. 

Z is the luminance variable 0 through 14, in even increments. 

Try this program, which prints an X of pink “fences” (the 
number sign). 



characters 


10 GRAPHICS 1 
20 COLOR 35 
30 SETCOLOR 0,4,14 
40 PLOT 2,2:DRAWTO 18,8 
50 PLOT 2,8:DRAWTO 18,2 
60 PRINT "HOW’S THAT?" 


In Line 20, COLOR 35 tells the computer to use the ATASCII 
character 35 (# in GR. 1 and GR. 2) in the two following graphics 
statements, Lines 40 and 50. 

In Line 30, SETCOLOR 0,4,14 tells the computer to fill the color 
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register which displays the graphics screen characters, 0, with bright 
pink. 

To change the text window’s background and characters to green, 
add: 

35 BETCOLOR 2,12,14 



Now change the graphics screen background and border to blue. 

37 BETCOLOR 4,8,12 



To watch the dimensions of your characters change, alter Line 10. 
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10 GRAPHICS 2 



characters 

Take the time to experiment with color and luminance combina¬ 
tions you like by changing those variables in Lines 30, 35, and 37. 

EXERCISE 4 

In graphics modes 3 through 8, the values used in the COLOR 
statement affect the color variable in the SETCOLOR statement. In 
GR. 3, 5 and 7, COLOR 1 enables the color variable in the 
SETCOLOR statement. COLOR 2 and COLOR 3 alter the color re¬ 
sult and COLOR 0 makes the plotted points the same color as the 
background, so they appear invisible. 

In GR. 3, 5, and 7 the format is: 

COLOR X or C. X where: 

X enables the color variable of SETCOLOR. 

When X = 1 the color variable adheres to the color chart. 

When X = 2 the color is altered. 

When X = 3 the color is altered. 

When X = 0 the color is the same color as the back¬ 

ground. 
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GRAPHICS FROM CHAPTER 4 



EXERCISE 1 from page 58 


$$$$$$$$ 



EXERCISE 2 from page 60 




EXERCISE 3 from page 63 







EXERCISE 4 from page 68 
















EXERCISE 5 from page 69 



EXERCISE 5 from page 12 









EXERCISE 6 from page 75 








CAR from page 77 


Using COLOR 1 in GR. 3, 5, or 7 affects the SETCOLOR state¬ 
ment as follows: 

SETCOLOR X, Y, Z or SE. X, Y, Z where: 

X is the color register. 

When X “ 0 the graphics on the graphics screen are color 
Y, luminance Z. 

When X = 1 the colors are altered. 

When X = 2 the text window background and characters 
are color Y, luminance Z. 

When X = 3 the default colors are used. 

When X = 4 the graphics screen background and border 
are color Y, luminance Z. 

Our programs use COLOR 1 and SETCOLOR statements with a 
color register variable of 0, 2, or 4—altering graphics characters, text 
window or graphic screen and border background and luminance. 
This program demonstrates some of your color options: 



10 GRAPHICS 3 
20 COLOR 1 

30 PLOT 0*10*DRAWTG 20,10 
40 PRINT “HOW'S THAT? 11 
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A gold bar appears on the black graphics screen, with the print 
message in a blue text window. 

Change Line 20 and watch the results. 

20 COLOR 2 


pale blue-white 
characters 


blue text 
window 



black 

screen 


Now the bar is green. 

20 COLOR 3 


pale blue-white 
characters 

blue text 
window 



black 

screen 


Now blue. 
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M W 


20 COLOR 0 



Now it is invisible, as it is the background color. 

Make these changes to alter the bar’s color according to the Atari 
hue color chart. 


O COLOR 1 
2 SETCOLOR 0,4,14 


pink bar 


pale blue-white 
characters 


blue text window 



black screen 


SETCOLOR tells the computer to put bright pink into register 0, 
which displays the graphics statements in GR. 3, 5, and 7. The bar is 
pink. 
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Add this to change the background and character color in the text 
window to bright green. 

26 SETCOLOR 2,12,14 


pink bar. 


dark green 
characters 


green text window 



black screen 


This SETCOLOR statement changes the graphics background and 
border to the color and luminance you specify, but also affects the 
hue of your graphics statements. 


SETCOLOR 4,3,14 



This makes the background and border blue, but also changes the 
bar to orange. 
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Now change the color and luminance variables in Lines 25, 26, 
and 27 to see what color combinations you prefer. 

Also change Line 10 to see how your graphics look in the dimen¬ 
sions of GR. 5 and GR. 7 modes. 

EXERCISE 5 

In graphics modes 4 and 6 the SETCOLOR statement affects the 
same screen parameters as in GR. 3, 5 and 7, but only functions with 
COLOR 1 or COLOR 0. COLOR 0 sets the graphics point to the 
background color, so the points seem invisible. COLOR 1 enables 
the points to be seen. 

The format in GR. 4 or GR. 6 is: 

COLOR X or C. X where: 

X enables color in the SETCOLOR statement. 

When X = 0 the graphic points are the same color as the 
background and appear invisible. 

When X = 1 the graphic points are visible. 

This program displays a box in GRAPHICS 4’s default colors. 



10 GRAPHICS 4 
20 COLOR 1 

30 PLOT 20,20?DRAWTO 30,20 
40 DRAWTO 30,30♦DRAWTO 20,30 
50 DRAWTO 20,20 
60 PRINT “LIKE IT?" 
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The box is outlined in orange on a black graphics screen back¬ 
ground. The printed message appears in the blue text window. 
Now change Line 10. 



You should see the same program in GR. 6’s screen mode param¬ 
eters. 

Now change Line 20. 

20 COLOR 0 
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The graphic image disappears, as it is displayed in the background 
color, black. 

Now make these changes and additions: 

15 COLOR 1 
20 SETCOLDR 0,4,14 


pale blue-white 
characters 


blue text window 



black 

screen 


The SETCOLOR statement tells the computer to set the graphic 
points to bright pink. The COLOR 1 statement makes them visible. 
Add this: 

26 SETCOLOR 2,1,14 


dark green 
characters 


yellow-green 
text window 



black 

screen 
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This SETCOLOR statement changes the text window background 
and characters to green. 

Now add: 

27 SETCOLOR 4,2,14 


pale pink 
box 



green 

characters 


blackish-green 
text window 


yellow 

screen 


In Line 27, SETCOLOR changes color register 4, the graphics' 
screen background and border, to bright orange—which in turn af¬ 
fects the hue of the graphics points. 

Experiment with the color and luminance variable in Lines 25, 26, 
and 27 to see what combinations you like. Change Line 10 from 
GR. 6 to GR. 4 and see how the dimensions of the graphics modes 
affect the result. 


EXERCISE 6 

In the GRAPHICS 8 mode, Atari's highest screen resolution, the 
COLOR statement serves the same function as in GR. 4 and GR. 6. 
The COLOR 1 statement enables a visible graphics display. COLOR 
0 makes the plotted points appear invisible. 

This program prints a faint diamond near the center of the screen. 
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10 

GRAPHI 

CS 

8 

20 

COLOR 

1 


30 

PLOT 1 

00, 

80JDRAWTO 120,100 

40 

DRAWTO 

14 

0,80 i DRAWTO 120,6 

50 

DRAWTO 

10 

0,80 

60 

PRINT 

"HE 

RE IT IS!" 


The graphics screen and text window in GRAPHICS 8 share the 
same background color. Here they are in blue, the default color. 

In GRAPHICS 8, the SETCOLOR format is: 

SETCOLOR X, Y, Z or SE. X,Y,Z 
X is the color register. 

When X = 1 the luminance of the plotted points is af¬ 
fected. 

When X = 2 the graphic screen, points, text windows, 

and characters are set to color Y, luminance 
Z. 

When X — 4 the border is set to color Y, luminance Z. 

Y is the color variable, from 0 to 14. 

Z is the luminance variable, from 0 to 14 in even increments. 


GRAPHICS MODES, COLOR, and SETCOLOR • 73 




Add this line to your program: 
25 SETCOLOR 1,8,0 



In GRAPHICS 8 the SETCOLOR statement affecting color register 
1, regardless of the color variable, changes the luminance of the 
graphics points and the text characters. Here it makes them as dark as 
possible, to contrast with the background. 

Now add this: 
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This SETCOLOR statement sets the graphic screen background, 
graphic points, text window, and text characters to bright pink. 
Add: 


27 SETCOLOR 4,8,8 



This last SETCOLOR statement fills the border, color register 4, 
with blue. 

Try different color and luminance variables in Lines 26 and 27 to 
find the combinations that appeal to you. 
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FISH 


Use this program to make a fish. 

Can you change the size of this fish and add others to the picture? 1 



PROGRAM LISTING 

:L0 0 GRAPHICS 7+16 
105 COLOR 1 
110 PLOT 32,75 
117' SETCOLOR 0,11,8 
120 DR AWT 0 *18,7 0 
130 DRAWTO 55,75 
1*10 DR A WTO "18,79 
150 DRAWTO 31,72 
160 DRAWTO 32,75 
170 PLOT 51,7"! 

180 GOTO 180 

NOTES 

Line 100: GRAPHICS 7+16 tells the computer to use the full 
screen of graphics mode 7 to run this program. 

Line 105: COLOR 1 says use COLOR 1 to enable SETCOLOR 
statements. 

Line 117: SETCOLOR says fill the color register 0, the graphics 
points on the screen, with color 11, blue-green, with a luminance of 8 
average brightness. 

Line 180: GOTO tells the computer to keep the program in a contin¬ 
uous loop, enabling graphic mode 7’s full screen, until you BREAK 
the run . 
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CfiR 


Here is a car ready to drive across the screen. 

Try to design your favorite sports car or a racing model. 



PROGRAM LISTING 

100 GRAPHICS 7 
1 0 5 C 01.. 0 R 1 $ 8 IE T C 01... 0 R 0,2,1 “1 
107 SET COLOR '1,8,8 

109 REM ***DRAW CAR 

110 PLOT 50,30 

12 0 DRAWTO 60,30?DRAWTO 85,25 

130 DRAWTO 85,25 

140 DRAWTO 90,30 

150 DRAWTO 98,30 

160 DRAWTO 98,35 

170 DRAWTO 50,35 

180 DRAWTO 50,30 

185 REM ***DRAW TIRES 

190 PLOT 56,35? DRAWTO.60,32 

195 DRAWTO 64,35 

200 DRAWTO 59,38?DRAWTO 56,35 

210 PLOT 86,35iDRAWTO 90,32 

220 DRAWTO 94,35 

225 DRAWTO 89,38\DRAWTO 86,35 


NOTE 


Line 100: GRAPHICS 7 puts the program run in the regular graphics 
7 mode, with a text window. 
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Line 105: SETCOLOR sets the color and luminance of the graphic 
points. 

Line 107: Here SETCOLOR sets the color and luminance of the 
graphic screen’s background. 

Lines 109 , 185: The Remark (REM) statement includes nonexecut¬ 
able statements in the body of the program, which can only be seen in 
program listing, for the benefit of the user. 
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FISHING BOnT 


This fisherman is hoping a fish will come along. 

See if you can change the program to make his boat look like a 
cabin cruiser, or add some fish to the picture. 



PROGRAM LISTING 


10 0 

GRAPHICS 5 


110 

COLOR lISLiCOLOR 0, 

, I 4 

120 

SETCOLOR 4,8,8 


13 0 

S E T C 0 L 0 R 2,13 , 14 


I O »“* 

.L u 

REM **DRAW BOAT 


14 0 

P L. 0 1 2 0 ,20 5 D R A W 1 0 3 

0,20 

150 

DRAWTO 30,7 * DRAWTO 

3 4 , 7 

1 6 0 

DRAWTO 34,201 DRAWTO 

5 5,20 

170 

DRAWTO 49,26 


180 

DRAWTO 26,26 


190 

DRAWT0 20,20 


195 

REM axDRAW MAN 


20 0 

PLOT 45,12 i DR AW TO 4 

2,10 

210 

DRAWTO 45,8 l DRAWTO 

48,10 
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220 DRAWTO 45#12JDRAWTO 45,20 
230 DRAWTO 45 >171 DRAWTO 49,13 
240 DRAWTO 78,36 

NOTES 

Line 100: This program runs in graphics mode 5. 

Line 110: This SETCOLOR statement assigns color and luminance 
to the graphic points. 

Line 120: Here SETCOLOR assigns color and luminance to the 
graphic screen’s background. 

Line 130: This SETCOLOR statement affects the text window back¬ 
ground and characters. 


80 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 



WINDMILL 


The computer draws the arms of a windmill. 

Add to the program to make it a pinwheel or propellor. 



PROGRAM LISTING 


1Q 0 GRAPHICS 5 

1J. 0 COLOR 15 SEi COLOR 0 , 1 , 14 

12 0 S E T C 0 L 0 R 1, 8, 1 0 ? S E T C 0 L 0 R 

130 PLOT 10,204DRAWTO 50,20 

1-10 DRAW TO TO , 1 0 i DR A WTO 20,30 

150 DRAWTO 10,20 

160 PLOT 30,5JDRAWTO 30,35 

170 DR A WTO *12,30, DR A WTO 18,10 

175 DRAWTO 30,5 

180 PLOT 11,205DRAWTO 22,28 

190 PLOT 19,20;DRAWTO 25,25 

20 0 PLOT -17,20 ; DR A WTO 39,12 

210 PLOT 13,20;DRAWTO 35,11 
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220 PLOT 
230 PLOT 
2T 0 PLOT 
250 PLOT 


30, 9 J DRAWTO 21,12 
3 0,12 J DRAWTO 2T,1T 
30,33 5 DRAWTO TO,28 
30,30,DRAWTO 36,26 
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SNOUUFLRK6S 


Fill the screen with different-sized snowflakes. 

Change the program to print out even more random snowflakes 
on your screen. 




PROGRAM LISTING 

100 GRAPHICS 8 

11 o c:o l o r J.* s e tcolor i , i, i 

112 SETCOLOR 2,8 t Z 
11. T SET COLOR 4,^14 
115 FOR T1 TO S 

12 0 L -1N T (R N D (1) * 15+3) 

13 0 X=IN T (R N D < 1) x<2 8 0+2 0 ) 

1T0 Y~.INT(RND (.1 )*120 +20 ) 

150 PLOT X-L,YJ DRAWTO X+L,Y 
160 PLOT X , Y-LJ DRAWTO X,Y+L 
170 l..~L--3 

180 SX-X-L♦SY-Y-L 

20 0 PLOT SX * SY t DR A WTO SX+ < 2*L.) , SY+ (2*L ) 
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2.10 SY-Y + L 

22 0 PLOT SX * SY ♦DRAWTG SX+< 2*L ) , SY- < 2*L ) 
230 NEXT I 

NOTES 

Line 100: GRAPHICS 8 puts this program run in graphics mode 8. 

Line 110: SETCOLOR 1,1,14 makes the graphic points as bright as 
possible. 

Line 112: This SETCOLOR statement sets the background and text 
window color. 

Line 114: Here SETCOLOR affects the border of the screen. 

Line 120: This RND statement finds a random number between 
3 and 15 to change the size of the flakes. 

Line 130: This RND statement finds a random number between 
20 and 280 for the starting position on the X axis. 

Line 140: The RND statement here finds a random number between 
20 and 120 for the starting position on the Y axis. 

Line 150: PLOT is used to position the snowflakes. The X, Y coordi¬ 
nates are set to the numeric variables in Lines 130 and 140. 
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SRIlBOfiT 


Draw a picture on your screen of a sailboat. 
Can you add some sea gulls to the picture? 



PROGRAM LISTING 

100 GRAPHICS 5+16 

I 0 2 C 0 L 0 R 11S E T C 0 L 0 R 0 , 3 , 3 
.1.0*1 SET COLOR 4,8,2 

106 REM **#DRAW BOAT 

II 0 P L 0 "f 3 0 ,3 5 1 D R A W T 0 6 5 , 3 5 
115 DRAWTO 60,39 

120 DRAWTO 35,39 

125 DRAWTO 30,35 

130 PLOT 53,35iDRAWTO 53,6 

135 DRAWTO SO,9IDEAWTO 53,9 

1 -10 P L 0 T 53,1 0 1D R A W T O 31,3 3 

145 DRAWTO 64,335DRAWTO 53,10 

147 REM ***DRAW HORIZON 

15 0 P!... 0 T 0,2 0 5 D R A W T0 42,2 0 

.155 PLOT 58,20 5 DRAWTO 79,20 

157 REM *5K*DRAW MOON 

160 PLOT 9,25DRAWTO 13,2 

165 DRAWTO 15,3 5 DRAWTO' 15,4 

.170 DRAWTO 13,6 5 DR A WTO 9,6 

175 DRAWTO 7,55DRAWTO 7,45DRAWTO 9,3 

180 GOTO .180 
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NOTE 


Line 100: This program runs in the full screen of graphics mode 5. 
Since there is no text window, no SETCOLOR statement for color 
register 2 is needed. 
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CAMPGROUND 


Here’s a campground scene. 

Try adding some figures or trees to the picture. 


o 



PROGRAM LISTING 

100 GRAPHICS 7+16 

11 0 S E T C 0 L 0 R 1,9,14 t C 0 L. 0 R 1 
112 SETCOLOR 4,9,0 

114 REM ***PRAW HORIZON 

12 0 PL0 T 0,2 0 t D RAWT0 159,20 
125 REM ***DRAW MOON 

130 PLOT 125,3* DRAWTO 130,3 

140 DRAWTO 134,5 X DRAWTO 134,7 

.150 DRAWTO .130,10, DRAWTO 125,10 

160 DRAWTO 121,7JDRAWTO 121,5:DRAWTO 125,3 

165 X2 5: Y=3 5:8=1 

170 GOSUB 40 0 

ISO X«90:Y=45JS«2 

190 GOSUB 400 
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200 X-55JY-70:S=2*5 

210 GOSUE: 50 0 

22 0 X=13 0 J Y~90:S~2,75 

230 GOSUE! 50 0 

24 0 GOTO 900 

390 REM ***ANGLE 1 

40 0 PLOT X,YIDRAWTO X,Y-<5*S) 

410 DRAWTO X+<8#S)>Y-<11#S) 

420 DRAWTO X+<15*S)»Y-(5*S) 

430 DRAWTO X+(8*S),Y 
440 DRAWTO X~<5*S),Y 
450 DRAWTO X,Y-<5#S> 

460 DRAWTO X+(8*S),Y 

470 RETURN 

490 REM ***ANGLE 2 

500 PLOT X,YJDRAWTO X,Y-(5*S) 

510 DRAWTO X~(8*S),Y-(11*S) 

520 DRAWTO X-(15*S) »Y~ <5*S) 

530 DRAWTO X-<8*S),Y 
540 DRAWTO X+<5*S),Y 
550 DRAWTO X,Y~(5*S) 

560 DRAWTO X~<8*S),Y 
570 RETURN 
900 GOTO 900 

NOTES 

Line 100: This program runs in graphic mode 7’s full screen. 

Lines 165, 180, 200, 220: X and Y are set as the starting coordinates 
of each tent. S is the size variable. 

Lines 400-470, 500-570: These are subroutines, which draw the 
tents angled to face toward the left or the right. 
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PICTURE 


Draw this picture with your computer. 

What additions can you make to the scene? 



PROGRAM LISTING 

100 GRAPHICS 7+16 
1 :L 0 COLOR 1 t SET COLOR 1,0,0 
112 SETCOLOR 4,8,2 

115 REM xxSET POSITION/SCALE OF TREES 

120 X-120 l Y~10 * 8=1 

130 GOSUE 600 

150 X=30:Y=50:S*1.75 

160 GOSUB 600 

200 REM xxHORIZON 

20 5 PLOT 0 t 25♦DRAWTO 108,25 

210 PLOT 133,25 * DRAWTO 159,25 

240 REM xxHOUSE 

250 PLOT 62,58JDRAWTO 107,58 

260 DRAWTO 107,85 * DRAWTO 62,85$DRAWTG 62,58 
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265 REM **WINDGWS & DOOR 

270 DRAWTO 85,32:DRAWTO 107/58 

280 PLOT 70,18:DRAWTO 70,12 

290 DRAWTO* 73,12:DRAWTO 73,15 

300 PLOT 70,65JDRAWTO 77,65 

310 DRAWTO 77,70JDRAWTO 70,70♦DRAWTO 70,65 

320 PLOT 90,65:DRAWTO 97,65 

330 DRAWTO 97,70 J DRAWTO 90,7T): DRAWTO 90,65 

350 PLOT 80,85♦DRAWTO 80,73 

360 DRAWTO B7 ,73♦DRAWTO 87,85 

390 REM **MAN 

100 PLOT 120,77tDRAWT0 121,77 

110 DRAWTO 121,80:DRAWTO 120,80 t DRAWTO 120,77 

120 PLOT 122,79:DRAWTO 122,87 

130 PLOT 122,81{DRAWTO 118,86 

110 PLOT 122,81tDRAWTO 126,86 

150 PLOT 119,93:DRAWTO 122,87 

160 DRAWTO 125,93 

190 REM *x*DOG 

500 PLOT 110,87:DRAWTO 138,87:DRAWTO 110,85 

510 DRAWTO 118,91 

520 PLOT 110,9i:DRAWTG 111,90 

530 DRAWTO 150,90:DRAWTO 155,91 

510 PLOT 115,9i:DRAWT0 155,88 

550 REM xxSUN 

560 PLOT 30,3:DRAWTO 31,3 

565 X=3i:V==3 

570 FOR 1=1 TO 3:DRAWTO X+I,Y+I:NEXT I 
572 DRAWTO 37,8 

575 Xl=37:Yl=8:r-0R 1=1 TO 3 

576 DRAWTO Xl-I,Y1+I5NEXT I 
580 DRAWTO 30,11:X=30JY=11 

582 FOR 1=1 TO 3:DRAWTO X~I,Y-I:NEXT I 
585 DRAWTO 27,5 * 

587 X=27:Y=5 

590 FOR 1=1 TO 3:DRAWTO X+I,Y-I 
595 GOTO 900 

600 REM xkxTREES ROUTINE 

605 PLOT X,Y:DRAWTQ X-(K)xS),Y+<10*S> 

610 DRAWTO X-<5*8),Y+<10*8) 

620 DRAWTO X-(16x3),Y+(1B*S) 

63 0 DRAWTO X~(2*S),Y+<18*S> 
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6^0 DRAWTO X-<2*S) ,Y+<22*S) 
650 DRAWTO X + < 2*8 ) , Y+ ( 22*8 ) 
66 0 DRAWTO X+(2*S>,Y+<18*S) 
670 DRAWTO X+<16*8)*Y+<18*S) 
680 DRAWTO X+<5*S>*Y+<10*S> 
700 DRAWTO X+<10*S),Y+<10*S) 
710 DRAWTO X *•Y 
720 RETURN 
800 GOTO 900 
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RNIMRTION 

COLOR 1 and COLOR 0 statements make it easy 
to move objects around on the screen. 

PROGRAMS 

1. Warmups 

2. Walking Figure 

3. Flying Bird 

4. Jumping Fish 

5. Helicopter 





WARMUPS 


Moving a shape across the screen requires 3 steps: 

1. Draw the shape. 

2. Erase the shape. 

3. Draw it in a new location. 

The faster the computer can do steps 1,2, and 3, the faster the 
shape will move. If there is a delay between steps 2 and 3, the shape 
will flicker as it moves. 

Any of the graphics statements can be used to draw the shape with 
COLOR 1. Then, to erase it, use the same statements, but set the 
COLOR statement to 0, the background color. 

EXERCISE 1 

» 

Use the PLOT statement to draw a block of color and then move it 
across the screen. 



10 GRAPHICS 4 
20 FOR X~1 TO 79 
30 COLOR 1♦PLOT X,3Q 
40 FOR I«1 TO 50 l NEXT I 
50 COLOR 0♦PLOT X,3Q 
60 NEXT X 
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Take out the Wait Loop in Line 40 and see how fast the block 
moves across the screen. 

Change the program to move the block up the screen. 



10 GRAPHICS 4 
20 FOR Y=39 TO 1 STEP -1 
30 COLOR 1♦PLOT 40, Y 
40 FOR 1=1 TO 50tNEXT I 
50 COLOR 0 t PLOT 40,Y 
60 NEXT Y 


EXERCISE 2 

Now draw a rocket in graphics mode 8 and make it blast up the 
screen 
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10 GRAPHICS 85X=100 
2 0 FOR Y == 150 TO TO STEP -10 
30 COLOR 3JG0SUE: 7 0 
TO IF Y-l00 THEN END 
50 COLOR 0«GGSUB 70 
60 NEXT Y 

7 0 REH kxokDRAW ROCKET 

80 PLOT X * Y ♦ DRAWTO X,Y--30 

90 DRAWTO X+3,Y-35JDRAWTO X+6,Y~30 

100 DRAWTO X+6,YJDRAWTO X+3,Y-5 

110 DRAWTO X f Y 

120 RETURN 

Line 30 sets COLOR to 1 and then calls the subroutine that draws 
the rocket. Line 50 erases the rocket by setting COLOR to 0, or the 
background color, before calling the same subroutine. Repeating 
these steps moves the rocket up the screen. 

Add a Wait Loop between Lines 40 and 50 and see if you like the 
result. 


EXERCISE 3 

This exercise moves a car across the screen. 
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.10 GRAPHICS 8 
15 Y-100 

20 FOR X-230 TO 25 STEP -15 
30 COLOR 1JGOSUE: 80 
40 COLOR 0 1 GGSUB 80 
50 NEXT X 
60 END 

70 REM *#DRAW CAR 
80 PLOT X,YJDRAWTO X+20,Y 
9 0 DRAWTO X+27 , Y+8 ! DRAWTO X+38»Y+8 
100 DRAWTO X+38,Y+151DRAWTO X-22,Y+1S 
110 DRAWTO X-22 t Y+8 i DRAWTO X~10,Y+8 
120 DRAWTO X,Y 

130 PLOT X-12,Y+16JDRAWTO X~12,Y+18 
140 PLOT X-11,Y+19:DRAWTO X~7,Y+19 
150 PLOT X-6 > Y+18J DRAWTO X-6,Y+16 
160 PLOT X+l8,Y+16iDRAWTO X+18,Y+18 
170 PLOT X+l9, Y+:L9 J DRAWTO X+23,Y+19 
180 PLOT X+24,Y+18JDRAWTO X+24,Y+16 
190 RETURN 
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WALKING FIGURE 


Make a simple cartoon character walk across the screen. 

To make your own figure, just draw your character in two or more 
walking positions and then alternate the positions as you move your 
figure across the screen. 

Try making an animal walk or run across the screen. 



PROGRAM LISTING 

1 GRAPHICS 0 

100 GRAPHICS 8 

110 COLOR 1J SETC0L.GR 1,1,0 

112 SETCGLOR 2, 4,2 

115 SETCOLOR 2,4,10 

120 X--30 J Y--50 

150 FOR X~30 TO 250 STEP 15 

160 COLOR 1JG0SUB 210 

165 COLOR OtGOSUB 210 

ISO COLOR 1JGOSUB 310 

185 COLOR OJGOSUB 310 

190 NEXT X 

200 STOP 

205 REM ***DRAW POSITION 1 
210 PLOT X-5,Y+8JDRAWTO X-10,Y+8 
215 DRAWTO X-l0,Y-2JDRAWTO X+10,Y-2 
217 DRAWTO X+l0,Y+8♦DRAWTO X-5,Y+8 
220 PLOT X-5,Y+8JDRAWTO X--15,Y+20 
230 DRAWTO X+15,Y+20 
240 DRAWTO X+5,Y+8 
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250 PLOT X-5,Y + 2 0JDRAWTO X+5,Y+20 
255 DRAWTO X+5,Y+25JDRAWTO X-5,Y+25 
257 DRAWTO X-5,Y+20 
260 PLOT X,Y+20:DRAWTO X+5,Y+20 
265 DRAWTO X+5,Y+25JDRAWTO X,Y+25 
267 DRAWTO X,Y+20 

270 PLOT X~5,Y+25 J DRAWTO X+10,Y+25 
280 DRAWTO X+l0,Y+30JDRAWTO X-5,Y+30 
290 DRAWTO X-5,Y+25 
300 RETURN 

305 REM ***DRAW POSITION 2 
310 PLOT X-5,Y+8JDRAWTO X-10,Y+S 
315 DRAWTO X-l0,Y-2JDRAWTO X+10,Y~2 
317 DRAWTO X+l0,Y+8JDRAWTO X-5,Y+8 
320 PLOT X-5,Y+8JDRAWTO X-15,Y+20 
330 DRAWTO X+l5,Y+20 
3^0 DRAWTO X+5,Y+8 

350 PLOT X-5,Y+20JDRAWTO X-10,Y+20 

355 DRAWTO X-l0,Y+25JDRAWTO X-5,Y+25 

357 DRAWTO X-5,Y+20 

360 PLOT X-l0,Y+25JDRAWTO X,Y+25 

365 DRAWTO X,Y+30JDRAWTO X-l0,Y+30 

367 DRAWTO X-10,Y+25 

370 PLOT X+10,Y+20JDRAWTO X+15,Y+20 

375 DRAWTO X+15,Y+25JDRAWTO X+10,Y+25 

377 DRAWTO X+10,Y+20 

3S0 PLOT X+10,Y+25JDRAWTO X+20,Y+25 

390 DRAWTO X+20,Y+30 JDRAWTO X + l0,Y+30 

'too DRAWTO X + 10, Y + 25 

T10 RETURN 

NOTE 


Lines 160-185: The drawings of the figure are placed in subroutines 
starting on Lines 210 and 310. This helps the programmer separate 
the action part of the program from the initial drawings. First each po¬ 
sition is drawn with COLOR 1, making it visible. Then it is drawn with 
COLOR 0, and disappears into the background color. 


ANIMATION • 99 



FLVING BIRD 


Make a bird fly across the screen. This program uses three positions 
of the bird’s wings in order to simulate motion. 

Try making a bird or a butterfly of your own. 



PROGRAM LISTING 


10 0 

GRAPHi'CS 8 



.1 j. l> 

CL) 1... L) R .L * 8R I 8 Ci L 0 K 1 ? J. t 0 


115 

i L- G L l j R y 8 ^ 

14 


12 0 

Y ~ 4 0 



130 

REM ***MGUE A 

C R 0 8 S 


140 

FOR X~1S TO 2 

00 STEP lb 


15 0 

COLOR If PLOT 

X,YfGOSUB 195 


155 

COLOR 0 J PLOT 

X > Y f COSLJB 195 


1 6 0 

COLOR If PLOT 

X-S , Y -5 f GOSUB 

250 

1.65 

COLOR 0 5 PLOT 

X -5 f Y-5fGOSUB 

250 

170 

COLOR 1: PLOT 

X-5 t Y-l0f GOSUB 

310 

175 

COLOR Of PLOT 

X-5,Y”10fGOSUB 

: 310 


ISO NEXT X 
190 STOP 

195 REM POSITION 1 
200 DRAWTO X+25,Y~10 
210 DRAWTG X+35,Y+10 
22 0 DRAWTG X+45,Y-1Q 
230 DRAWTG X+70,Y 
240 RETURN 

250 REM ***POSITION 2 
260 DRAWTG X+25,Y-10 
270 DRAWTG X+3Q,Y+10 
280 DRAWTG X+45,Y~5 
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290 

DRAWTO 

X+7 0 t Y~5 

300 

RETURN 


310 

REM COMPOSITION 

320 

DRAWTO 

X+35,Y+10 

330 

DRAWTO 

X+70»Y~10 

34 Q 

RETURN 


NOTE 



Lines 150-170: Each pair of GOSUB statements displays a different 
position of the bird’s wings. 
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JUMPING FISH 


This fish swims across the screen and also jumps out of the water 
until you hit the BREAK key. 

Change the speed he swims by changing the step increments on 
Lines 160 and 300. 


*o 


PROGRAM LISTING 

100 GRAPHICS 8 

110 COLOR 1 i bL l COLOR 1 1 1 1 1 

12 0 S E T C 0 L 0 R 2,8,12 

130 X=65iY»140 

1*0 REM xcjkxcDRAW WA1ER 

1S0 C0L0R 1JPL0T 0 , 80S DKAWTD 319 , 80 

155 REM xxxMOVE ACROSS 

160 FOR X-65 TO 165 STEP 10 

17 0 C 0 L 0 R 1 : P L 0 T X » Y 5 G O S U B 350 

180 COLOR 0 i PLOT X»Y iGO SUB 350 

190 NEXT X 

195 REM xxxJUMP UP 

20 0 FOR Y~1T0 TO TO STEP -5 

210 COLOR 12PLOT X»YJGOSUB 35 0 

22 0 COLOR 0 ? PLOT XyYJGOSUB 35 0 

230 NEXT Y 

235 REM ***JUMP DOWN 
2T0 FOR Y~T0 TO 1T0 STEP 5 
25 0 C O L. O R 1 ♦ P L O T X » Y IG O S U B 35 0 
260 COLOR 0iPLOT X,YJGOSUB 350 
270 NEXT Y 
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275 REM xxxREDRAM FISH & WATER 

280 COLOR 1U-'LOT X,YJGOSUB 350 

290 COLOR 1♦PLOT 0,80JDRAWTO 319*80 

295 REM xxxMOVE ACROSS 

300 FOR X-1 7 5 TO 265 STEP 10 

310 COLOR 1»PLOT X,Y:GOSUB 350 

32 0 COLOR 0 J PLOT X, Y J GO SUE: 350 

330 NEXT X 

3-TO GOTO 145 

350 REM xxxDRAW FISH 

360 DRAWTO X+31*Y~10JDRAWTO X+45,Y 

370 DRAWTO X+31* Y+8tDRAWTO X-3*Y~5 

380 DRAWTO X,YJPLOT X + 38,Y--2 

390 RETURN 


NOTES 


Lines 155-190: Move the fish across the screen. 

Lines 195-230: Make the fish jump up. 

Lines 235-270: Make the fish jump down. 

Lines 295-330: Move the fish the rest of the way across the screen. 
Lines 350-390: Subroutine that draws the fish. 
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H€UCOPT€R 


Watch your computer draw a helicopter flying above a city skyline 
and landing on a building in this program. 

Once you get this program up and running, try adding some win¬ 
dows to the buildings. 


O 



PROGRAM LISTING 

1 0 0 G R A P HIC 3 8$ C 01... 0 R I $ S E T C 0 L G R 1,1,1T 

1.15 SET COL. DR 2 , 9,0 

117 REM ***DRAW SKYLINE 

120 PL0T 0,150 $DRAWT0 319,150 

130 PLOT 0,55$DRAWTO 16,55 

135 D RA WT0 1 6 ,120 $ DR A WT0 Tu,120 

15 0 D R A W T 0 -40,70$ D R A W T 0 100,7 0 
155 DRAWTO 10 0,95 $ DRAWTO 155,95 

16 0 DRAWTO 155,80 $ DRAWTO 20 0,80 
170 DRAWTO 20 0,90 $ DRAWTO 260,90 
180 DRAWTO 260,120$DRAWTO 300,120 
190 DRAWTO 300,150 

20 0 REM tf»:*MGON 
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210 

PLOT Zt 

50,10 

220 

DRAWTO 

260,10 

23 0 

DRAWTO 

26T,13 

2T0 

DRAWTO 

266,16 

250 

DRAWTO 

268,19 

26 0 

DRAWTO 

268,21 

270 

DRAWTO 

266,2T 

275 

DRAWTO 

26T,27 

280 

DRAWTO 

260,27 

285 

DRAWTO 

250,27 

290 

DRAWTO 

2T6,2T 

291 

DRAWTO 

2TT,21 

292 

DRAWTO 

2T2,19 

293 

DRAWTO 

2T2,16 

29T 

DRAWTO 

2TT,13 

295 

DRAWTO 

2T6,11 

296 

DRAWTO 

250,10 


298 REM ***MOVE ACROSS 
300 FOR X~20 TO 260 STEP 20 
305 Y~30 

310 COLOR 1JGOSUB TOO 
320 COLOR OJGOSUB TOO 
325 NEXT X 

327 REM ***MOVE DOWN 

330 FOR Y~T0 TO 90 STEP 10 

335 X=280 

3T0 COLOR 1JGOSUB TOO 
350 COLOR OJGOSUB TOO 
360 NEXT Y 

370 COLOR 1JGQSUB TOO 
380 STOP 

390 REM ***DRAW COPTER 
TOO PLOT X,Y 
T10 DRAWTO X+6,Y~T 
Til PLOT X ,Y ♦DRAWTO X + 8,Y 
T12 PLOT X > Y ♦DRAWTO X~8, Y 
T13 PLOT X»YJDRAWTO X-6,Y+T 
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415 PLOT X>YJDRAWTQ X,Y+6 

416 DRAWTQ X-3 , Y+6 {DRAWTO X+6,Y+6 

417 DRAWTO X + 6 ^Y + SJDRAWTO X+8»Y+8 

418 DRAWTO X-6,Y+8♦DRAWTO X~6»Y+10 

419 DRAWTO X-l0,Y + l0JDRAWTO X+10,Y+10 

420 PLOT X»Y+l0JDRAWTO X,Y+16 

421 DRAWTO X-8,Y+16JDRAWTO X+8,Y+16 
425 RETURN 
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FUN WITH 
G60M€TRV 


You can use the built-in functions SIN and COS to 
draw many geometric shapes, such as a square, 
triangle, or circle. You can even make flowers and 
fancy designs. 

PROGRAMS 

1. Warmups 

2. Apple Tree Harvest 

3. Leaping Fish 

4. Bird and Flower 

5. Fancy Graphics 





WARMUPS 


EXERCISE 1 


Use the SIN function to draw a wave across the top of your 
screen. 



100 GRAPHICS a:COLOR 1 

lie H-io: D=20: c=i: A=o: B=20 

120 PLOT A,D 

130 FOR X=A JO B STEP C 

140 y=SIN (X) *hH-D 

150 DR A WTO X*H.,Y 

160 NEXT X 


The numeric variables on Line 110 are used as follows: 


H: height of wave 
D: location on Y axis 
A: beginning point on X axis 
B: last point on X axis 
C: size of step along X axis 

Experiment with different values for these variables and see how 
the wave changes. 

Replace the SIN function with the COS function on Line 140 and 
see how the wave changes. 


EXERCISE 2 

We can use the SIN and COS functiohs to draw any angle we 
want. This example draws 0 degrees, 45 degrees, 90 degrees, and 
135 degrees. 
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100 GRAPHICS 8:COLOR 1 

110 PRINT“INPUT LENGTH OF LINE,ANGLE” 

120 INPUT R, A 

130 AR-A*(3- 14159/180) 

140 X1=R*C0S(AR> +100 
150 Y1=-R*SIN<AR>+100 
160 PLOT 100,100:DRAWTO X 1, Y1 
170 GOTO 120 

Experiment with different values of R and A and see what angles 
you make. 

Line 130 converts the angle A from degrees to radians, using the 
equation: 

Radians = degrees * (PI/180) for PI = 3.14159 

Lines 140 and 150 determine the ending X,Y coordinate for the 
line and add these values to the point 100,100. This translates the 
0,0 point from the top left point on the screen to 100,100. 

Line 150 uses a negative R because the Y coordinate on your 
screen is the reverse of the Y coordinate on a normal X,Y axis. The 
Y coordinate on your screen increases as you move down rather than 
up. Therefore, you must change the sign of Y in order to make it the 
same as a normal X,Y axis. 


EXERCISE 3 

Draw a circle using the SIN and COS functions. These equations: 

X = R*COS(I) '+ XC 
Y = -R*SIN(I) + YC 
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give the X,Y coordinates for any point on the circumference of a cir¬ 
cle with a radius of R and center at XC,YC. 



100 GRAPHICS 8'.COLOR 1 
110 xc=100: YC=75: R=30: 
115 S»0'SE*6.6: J=„3 
120 PLOT XC+Rj, YC 
130 FQR I=S TO E STEP J 
140 X~R*CQ3(I>+XC 
150 y=~R*SIN<I>+YC 
160 DRAWTO X,Y 
170 NEXT I 


The numeric variables on Line 110 are used as follows: 

XC: center of circle X-axis 
YC: center of circle Y-axis 
R: radius of circle 
S: radians to begin drawing 
E: radians to end drawing 
J: increment to step while drawing 

S and E determine which part of the circle is drawn. To make a 
complete circle, set S = 0 and E = 6.6. To draw a part of the circle, 
change S or E to any number between 0 and 6.6. Experiment with 
different combinations for S and E and see which part of the circle 
you make. Just be sure to make E larger than S 
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Change the value of J and see how it affects your circle. 

To make an ellipse, make R different for X than Y. 

150 Y= —1.5 * R * COS(l) + YC 

Vary the shape of the ellipse by changing the radius R for X and Y. 


EXERCISE 4 

Draw a flower using the SIN and COS functions. 



100 GRAPHICS S:COLOR 1 

110 N=4: A=SO: P1=3.14159 

120 M=N*PI*2.5 

130 PLOT 100,100 

140 FOR 1=0 TO M STEP .05 

150 R=A*SIN<N*I> 

160 X=R*COS(I)+100 
170 Y=-R*SIN<I>+100 
180 DRAWTO X,Y 
190 NEXT I 
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The numeric variables on Line 110 are used as follows: 


A: size of the flower 
N: number of petals drawn 

If N is even, flower has 2 * N petals 
If N is odd, flower has N petals 

Change the value of N and see what your flower looks like. Try 
using a decimal number for N and see what you get. 

Line 150 uses an equation called “N-leaved rose” to find a value for 
R. Notice that R changes each time the FOR ... NEXT loop executes. 

EXERCISE 5 

We can use these equations to draw geometric shapes also. To make 
a triangle, we need to draw 3 sides, turning 120 degrees each time. 



100 GRAPHICS S:COLOR 1 
110 A=120*(3-14159/180) 

120 R=40: AR=A 

130 X2»R*C0S<AR>+100 

140 Y2*-R*SIN<AR>+100 

145 REM**DRAW SIDE 1 

150 PLOT 100,100:DRAWTO X2,Y2 

160 AR=AR+A: X1=X2: Y1=Y2 

170 X2*R*C0S<AR>+X1 

ISO Y2=?-R*SIN <AR) + Y1 

185 REM**DRAW SIDE 2 

190 PLOT X1,Yi:DRAWTO X2,Y2 

195 REli**DRAW SIDE 3 , 

200 PLOT X2,Y2:DRAWTO 100,100 
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The numeric variables are used as follows: 


A: angle in degrees 
AR: angle in radians 
R: length of side 

XI,Yl: X,Y coordinates for start of line 
X2,Y2: X,Y coordinates for end of line. 

Lines 130,140 and 170,180 add the new values of X,Y to the 
starting coordinates XI,Yl. This moves the origin each time to the 
starting point of the line. 


EXERCISE 6 

To draw a square, draw 4 sides and turn 90 degrees. 


100 GRAPHICS a:COLOR 1 
110 A=360/4 

120 AR=A*<3.14159/180) , 

130 X1=150: Y1=150: R=20 
140 PLOT XI,Yl 
150 FOR 1=0 TO 3 
160 X2=R*CQS<AR*I)+X1 
170 Y2=-R*SIN<AR*I>+Y1 
ISO DRAWTO X2,Y2 
190 X1 = X2: Y1 = Y 2 
200 NEXT I 

This program is a more efficient version of Exercise 5. The sides are 
drawn inside the FOR . . . NEXT loop on Lines 150-200. 
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EXERCISE 7 


Now you can draw a N-sided shape just by changing Exercise 6 as 
follows: 

105 INPUT N 
110 A«360/N 
150 FOR 1-0 TO N—1 

Try different values of N and see what shapes you make. How 
large must N be before your shape looks like a circle? 

Now try using these ideas in some programs. 
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fiPPl€ TR€€ HRRV6ST 


Use the equations for an ellipse to draw an apple tree. This tree 
starts out with 10 apples, but some fall off. 

Create your own picture by adding other figures to this one. 




FUN WITH GEOMETRY * 115 





PROGRAM LISTING 

100 GRAPHICS 8 
102 C0L0R 1iSETC0L0R 1,1,14 
104 SET COLOR 4,8,0 
106 SETCOLOR 2,6,2 
110 DIM XaO>,YCLQ) 

12 0 RX=75 : RY45 J XC•“ 152 J YC=55 i P 1*3,141 

130 PLOT XC,RY+YC 

135 REM *sokDRAW TREE 

140 FOR I=”0,3 TO 2*PI STEP 0,3 

150 S=RX*SINCI)+XC 

155 T*RY*CQS(I)+YC 

160 DRAWTO S,T 

165 NEXT I 

167 DRAWTO S,T+50JDRAWTO S+25,T+50 

169 DRAWTO St-25, T 

170 REM xxxpUT ON APPLES 

180 FOR C»1 TO 10 

190 A«INT<RND<1)*85)+115 

195 B=INT(RND(1)*65)+20 

200 PLOT A,B-3JDRAWTO A+3,B-2 

202 DRAWTO A+5,BJDRAWTO A+3,B+2 

20 4 DRAWTO A,B + 3 

206 DRAWTO A~3,B+lJ DRAWTO A~5,B 

208 DRAWTO A~3,B-2JDRAWTO A,B~3 

209 X < C > =A J Y ( C ) 

210 NEXT C 

212 REM ***APPLES FALL 

215 FOR C=10 TO 1 STEP -2 

216 A=X<C>IB=Y<C> 

220 FOR D==Y<C) TO 150 STEP 3 
230 COLOR 0 

240 GOSUB 300 

241 &=D 
245 COLOR 1 
250 GOSUB 300 
255 NEXT D 
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260 NEXT C 
275 STOP 

300 PLOT A,B~3iDRAWTO A+3,B~2 
302 DRAWTO A+5,BJDRAWTO A+3,B+2 
3(H DRAWTO A , B+3 
306 DRAWTO A-3,B+l1DRAWTO A-5,B 

308 DRAWTO A-3 , B-2{DRAWTO A,B-3 

309 RETURN 

NOTES 

Lines 140-165: Draw an ellipse for the tree. 

Lines 180-210: Put apples on the tree and save the X,Y coordinates 
for each apple in arrays X and Y. Line 190 finds a random X location 
for the apple within the circumference of the ellipse. Line 195 finds a 
random Y location. 

Lines 215-260: Move every other apple to the bottom of the screen. 
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L6RPING FISH 


Make our fish program from Chapter 5 more realistic by changing 
the line to a wave and making the fish jump in an arc instead of 
straight up. 

Add some other fish or sea life and create your own underwater 
picture. 





PROGRAM LISTING 

1 0 0 GR APHICS 81C0L.0R 1 i SETC0L0R 1,1, 1 4 
115 GETCOLOR 2,9,1 

117 SETCOLOR 4,9,1 
12 0 GO SUE: 320 

140 FI*3.14159JR*50 

150 Y=80$YC=80 

155 REM skscxMQVE ACROSS 

160 FOR X=10 TO 100 STEP 10 

170 COLOR 1 i GOSUB 390 

175 COLOR 0: GO SUE: 39 0 

180 NEXT X 

190 XC-X+50 

195 REM ***JUMP UP 

200 FOR 1=3 TO 2 STEP ”0,3 

210 X=R*COS(I)+XC 

220 Y=~R*SIN<I)*1,5+YC 

23 0 COLOR IIGOSUB 39 0 

2 3 5 C OLDR 0 J G0SUB 3 9 0 
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260 NEXT I 
265 Y~80 

267 REM ***MQVE ACROSS 
270 FOR X-160 TO 200 STEP 10 
280 COLOR 1JGOSUB 390 
285 COLOR 0«COSUE: 390 . 

290 NEXT X 
310 STOP 

320 REM ***DRAW WAVE 

330 PLOT 1,50 

340 FOR X=1 TO 20 STEP 1 

350 Y~SIN(X)*10+50 

360 DRAWTO X*14,Y 

370 NEXT X 

380 RETURN 

385 REM xxxDRAW FISH 
390 PLOT X,Y 

40 0 DRAWTO X+31,Y~101DRAWTO X+45,Y 
405 DRAWTO X+31,Y+8JDRAWTO X~3,Y~5 
408 DRAWTO X,Y 
410 PLOT X+38,Y-2 
420 RETURN 


NOTES 

Lines 200-260: Use the equations for a circle to make the fish jump 
in an arc. 

Lines 330-370: Use the SIN function to draw a wave across the 
screen. 

Lines 390-420: Draw the fish. 
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BIRD RND FLOUU6R 


Make the bird from Chapter 5 fly to a flower. 

Change the value of N on Line 130 and see how the flower 
changes. 




PROGRAM LISTING 

1 U 0 G k i :: i P H i. L- b 8 +1 6t 

1 1 0 0 U i... ti k 1 ■> b L i C (.} L U K 1 * 1 * • : v 

1 1 t; b i::. 1 C 0 L G R Z t 1 h ) 1 ,: T 

117 SETCOLOR 4,8,8 

120 X = 120 i Y«120 JPI=3* 1-4159 

130 N=i*5 

140 REM ***DRAW FLOWER 
145 PLOT X f Y 
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ISO FOR 1=0 TO 5*PI STEP 0.1 
160 R*50xSIN(NxI> 

170 C«R*COS(I-)+X 
ISO D*--R*SIN<I) +Y 
190 DRAWTO C,D 
200 NEXT I 

210 REM xxgkMOVE BIRD 
220 B-30 

230 FOR X=10 TO 90 STEP 4 
240 Y= < 6/15)xX+B 
250 COLOR ItGOSUB 300 
255 COLOR 0•GOSUB 300 
260 COLOR 1$GOSUB 360 
265 COLOR 0:GOSUB 360 
270 COLOR liGOSUB 420 
275 COLOR 0:GOSUB 420 
280 NEXT X 

285 COLOR ItGOSUB 420 
290 GOTO 290 
300 REM xxxPOSITION 1 
305 PLOT X,Y 
310 DRAHTO X+25.Y-10 
320 DRAWTO X+35.Y+10 
330 DRAWTO X+45,Y~10 
340 DRAWTO X+60.Y 
350 RETURN 

360 REM xxxPOSITION 2 
365 PLOT X-5.Y-5 
370 DRAWTO X+25,Y~5 
380 DRAWTO X+35,Y+10 
390 DRAWTO X+70.Y-5 
400 RETURN 

420 REM xxxPOSITION 3 
425 PLOT X-5# Y-l0 
430 DRAWTO X+35,Y+10 
440 DRAWTO X+70.Y-1Q 
450 RETURN 


FUN WITH GEOMETRY • 121 



NOTE 


Lines 230-280: Move the bird in a straight line from the point 10,30 
to the top of the flower. Line 240 calculates the Y coordinate using 
the equation of a straight line as follows: 

Y-M*X+B 

where M = slope of line, B = Y intercept. 

In this case, M = 6/15 and B = 30. 
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FRNCV GRRPHICS 


Make your own spirals and fancy designs. Input 7, 123, 3 when 
this program runs to get this design. 

Experiment with different input values and see what fancy designs 
you can make. 
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PROGRAM LISTING 

10.0 GRAPHICS 8 J SET COLOR 1,1,14* COLOR 1 
105 SETCOLOR 2,6,0 

110 PRINT "INPUT SIDE, ANGLE,INCREMENT" 
114 SETCOLOR 2,6,0 
120 INPUT R,A,D 

13 0 N3 6 0 / A 

14 0 A * A >x <3*14159 /18 0 ) 

150 PLOT 100,100 

160 xi=ioo:yi=ioo 

17 0 I~0 

180 X2aR*COS<A*I>+X1 

19 0 Y 2 * ~ R * SIN (A * I) + Y1 

200 IF X2<0 OR X2>319 THEN END 

210 IF Y2<0 OR Y2>159 THEN END 

220 DRAWTO X2,Y2 

230 XlaX2:Yl=Y2 

240 R*R+D 

250 Iai+i 

260 GOTO 180 


NOTES 


Line 140: Converts angle A to radians. 

Lines 180, 190: Determine next X,Y coordinates. 

Lines 200, 210: Stop the program when the design reaches the limits 
of the screen. 

Line 240: Increments the length of side by D. 
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GlOSSfiRV 


Term 

CHR$(65) 

COLOR 1 
(C. ) 


Cursor 

COS 

Default 

DIM A$ (20) 
(DI. ) 


Definition 

Returns the character corre¬ 
sponding to the ATASCII 
code in the argument. 

Determines the data to be 
stored in display memory for 
all subsequent PLOT and 
DRAWTO statements until 
the next COLOR statement 
is executed. In graphics 
modes 0 through 2, the data 
is an ATASCII character. In 
graphics modes 3 through 8, 
the data enables color. 



Page 


First 

Example 

Used 

CHR$ (65) = A 

p. 34 


In Graphics 2, 

p. 56 

Color 36 - $ 


In Graphics 3 

p. 64 

COLOR 1 - gold 



Marker or symbol on the p. 26 

screen that marks where the 

user’s next action will take 

effect or where the next 

character typed from the 

keyboard will appear. 


Returns the trigonometric COS(5) — .2836624 p. 
cosine of the argument. 108 

A value, action, or setting p. 12 

that is automatically used by 

the computer system when 

no other explicit information 

has been given. 


Sets aside space for a string DIM A$ (20) p. 37 

variable (here called A$), or 
for an array. 
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DRAWTO 

25, 17 
(DR. ) 

Causes a line to be drawn DR. 220,100 
from the last point displayed 
by a PLOT statement, to the 
location specified by the 

DRAWTO statement. 

p. 41 

END 

Terminates the execution of END 
the program and returns 
control to the user. 

p. 50 

FOR I - 1 

TO 4 
(F. ) . 

Allows you to repeat lines FOR I = 1 TO 4 
between the FOR and the 

NEXT statement four times. 

p. 33 

NEXT I 
(N. ) 

NEXT I 


STEP 

The loop of lines is incre- FOR I = 1 TO 4 

mented by the number in the STEP - 1 

STEP statement. If there is 

no STEP statement, the 

loop is incremented by 

one’s. NEXT I 


GOSUB 250 
(GOS. ) 

Executes the subroutine GOSUB 250 

which begins at line 250. 

p. 31 

GOTO 200 
(G.) 

Branches to line 200. GOTO 200 

p. 31 

GRAPHICS 
(GR. ) 

This command is used to se- GRAPHICS 3 
lect one of the nine Atari 
graphics modes. 

p. 12 

GRAPHICS 

0 

This command is also used GRAPHICS 0 
as a clear screen command, 
either in Direct or Deferred 
mode. It terminates any pre¬ 
viously selected graphics 
mode and returns the screen 
to the default mode (GR.0). 

p. 12 


126 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 



IF. . .THEN Executes or skips one or IF A « 10 THEN 200 p. 38 
more statements, depending 
on the truth of the stated 
condition. In this example IF 
A = 10, THEN line 200 is 



executed next. Otherwise 
the line after the 

IF. . .THEN statement is 
executed. 


INPUT A 
(IJ 

Reads a line of input from PRINT “ENTER 
the current input device. NUMBER” 

INPUT A 

Ap. 38 

INT (9.5) 

Returns the largest whole INT (9.5) * 9 

number less than or equal to 
the argument. 

p. 37 

PLOT 

(PL.) 

Plots a single block at the PLOT 10,20 

specified location on the 

screen. 

p. 41 

POSITION 
(POS. ) 

Places the invisible graphics POSITION 20,30 
window cursor at a specified 
location on the screen. The 
cursor does not actually 
move until an input or out¬ 
put command which uses 
the screen is issued. 

p. 26 

PRINT A 
(PR. or ?) 

Writes.a line of output to the PRINT A$,B,C 
current display device. This 
example writes the value of 

A$, B and C. 

p. 12 

REM 

Includes remarks in the body REM This is a remark p. 78 
of the program for the bene¬ 
fit of the user. 

RETURN 
(RET. ) 

Returns control from a sub- RETURN 
routine to the statement fol¬ 
lowing the GOSUB that 
called the subroutine 

p. 31 
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RND 

Returns a random number 
between 0 and 1. 

RND (1) 

p. 37 

SETCOLOR 

Chooses the particular hue 

SETCOLOR 1,1,114 

p. 41 

(SE. ) 

and luminance to be stored 
in the specified color regis¬ 
ter. 


p. 59 
p. 64 

SIN 

Returns the trigonometric 
sine of the argument. 

SIN 0 - .90929 

P- 

108 


128 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 




Once you’ve explored the many capabilities of your Atari < 
computer, you’ll definitely want to take the next step to 
graphics. This book covers the beginning and intermedi- ! 
ate graphics programming statements available in Atari 
BASIC. By following the exercises, you’ll be able to deco¬ 
rate a Christmas tree, build a pyramid, play hide and seek, 
and create an amazing amount of complex and beautiful 
artwork. And after you’ve familiarized yourself with these 
programs, you can experiment and generate your own 
new and unique designs. 


includes an introduction, an explanation on how to use this 
book, and warm up exercises at the beginning of each 
chapter. It also has a chapter that focuses on the color 
capabilities of your computer. 


is written in BASIC for the Atari 400 or 800 Home Computer 
equipped with a BASIC cartridge. The programs will run on 
either a color or monochrome monitor. 


The possibilities, discoveries, and fun are limitless. All you 
have to do is sit down at your computer and start creating! 
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